home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / bowling league (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  490 lines
  1. 10 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$
  2. 20 GOTO10000
  3. 30 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
  4. 31 FORZT=1TO100:NEXT:POKE54276,16:POKE54296,4:RETURN
  5. 38 PRINT"";:IFR<>0THENPOKE214,R-1:PRINT
  6. 39 POKE211,C:RETURN
  7. 41 GETD$:IFD$=""THEN41
  8. 42 RETURN
  9. 44 N%=1:PP$="":ZZ$="":GOTO46
  10. 45 N%=0
  11. 46 GOSUB38:PRINT"";:FORIJ=1TOL:PRINT" ";:NEXT:PRINT"[146]";:GOSUB38:DA$="":F%=0
  12. 47 FORIJ=1TOL:F%=F%+1
  13. 48 GOSUB41
  14. 50 IFD$="-"AND DA$=""THEN58
  15. 52 IFD$=CHR$(20)ORD$=CHR$(13)THENIJ=L:GOTO60
  16. 54 IFN%=1THENIFD$<"0"ORD$>"9"THEN48
  17. 56 IFD$<" "ORD$>"Z"THEN48
  18. 58 PRINTD$;:DA$=DA$+D$
  19. 60 NEXTIJ:IFD$=CHR$(13)THEN66
  20. 62 IFD$=CHR$(20)THEN46
  21. 63 GOSUB30
  22. 64 IFF%=LTHEN68
  23. 66 FORIJ=F%TOL:DA$=DA$+" ":NEXT
  24. 68 M=VAL(DA$)
  25. 70 IFM<0THENNG=1:M=-(M)
  26. 71 Y$=STR$(M):LN%=LEN(Y$)
  27. 72 IFM<10THENY$=PP$+ZZ$+RIGHT$(Y$,1):GOTO75
  28. 73 IFM<100THENY$=PP$+RIGHT$(Y$,2):GOTO75
  29. 74 Y$=LEFT$(Y$,LN%-2)+PP$+RIGHT$(Y$,2):IFLEFT$(Y$,1)=" "THENY$=RIGHT$(Y$,LN%)
  30. 75 IFLEN(Y$)<L+1THENY$=" "+Y$:GOTO75
  31. 76 IFNG=1THENNG=0:M=-(M):Y$=Y$+"-":GOTO79
  32. 78 Y$=Y$+" "
  33. 79 IFN%=2THEN85
  34. 80 GOSUB38:IFN%=1THENPRINT"[157]"Y$;:GOTO85
  35. 84 PRINTDA$;
  36. 85 RETURN
  37. 100 Z$=LEFT$(Z$+BL$,Z%):IFZ$=LEFT$(BL$,Z%)THEN120
  38. 110 IFRIGHT$(Z$,1)=" "THENZ$=" "+LEFT$(Z$,Z%-1):GOTO110
  39. 120 RETURN
  40. 210 IFZ$=""THENZ$=" "
  41. 215 PP=1024+(R*40)+C:X=LEN(Z$):IFX>BLTHENX=BL
  42. 225 FORY=1TOX:Z=ASC(MID$(Z$,Y,1)):IFZ>63THENZ=Z-64
  43. 240 Z=Z+128:POKEPP,Z:PP=PP+1:NEXT
  44. 250 IFX<BLTHENFORPP=PPTOPP+BL-LEN(Z$)-1:POKEPP,160:NEXT
  45. 255 GOSUB410:RETURN
  46. 310 BP=1:PC=55296+(R*40)+C:PP=1024+(R*40)+C
  47. 330 POKEPC,CC:GETZ$:POKEPC,BC:IFZ$=""THEN330
  48. 332 IFZ$=""THEN330
  49. 340 Z=ASC(Z$):IFZ=13ORZ=19THENBC=CC:GOSUB410:GOSUB610:RETURN
  50. 345 IF(Z=157ORZ=20)ANDBP>1THENPC=PC-1:PP=PP-1:BP=BP-1:GOTO330
  51. 350 IFZ=29ANDBP<BLTHENPC=PC+1:PP=PP+1:BP=BP+1:GOTO330
  52. 355 IFF=1THENIFZ<>32THENIFZ=46ORZ=47ORZ<45ORZ>57THEN330
  53. 365 IFZ=34ANDBP=1THENZ=39
  54. 370 IFZ<32ORZ>95THEN330
  55. 375 IFZ>63THENZ=Z-64
  56. 390 Z=Z+128:POKEPP,Z:IFBP<BLTHENBP=BP+1:PP=PP+1:PC=PC+1
  57. 395 GOTO330
  58. 410 PC=55296+(R*40)+C:FORPC=PCTOPC+BL-1:POKEPC,BC:NEXT:RETURN
  59. 610 PP=1024+(R*40)+C:Z$="":Z1$="":FORPP=PPTOPP+BL-1:Y=PEEK(PP)
  60. 630 Y=Y-128:IFY<32THENY=Y+64
  61. 635 Z1$=CHR$(Y):Z$=Z$+Z1$:NEXT
  62. 650 FORY=LEN(Z$)TO1STEP-1:IFMID$(Z$,Y,1)<>" "THEN665
  63. 660 NEXT
  64. 665 Z$=LEFT$(Z$,Y)
  65. 670 IFLEFT$(Z$,1)=" "THENZ$=RIGHT$(Z$,LEN(Z$)-1):GOTO670
  66. 675 IFZ$=""THENZ$="-"
  67. 680 RETURN
  68. 1000 REM    POST THIS WEEKS SCORES    :
  69. 1001 IFT%(1,3)<>0THENGOTO60590
  70. 1002 GOSUB59000:FORIJ=1TOO:U$(IJ)=LEFT$(U$(IJ),76)+LEFT$(BL$,12)
  71. 1004 IFMID$(U$(IJ),3,1)="0"THENU$(IJ)=LEFT$(U$(IJ),21)+"  "+RIGHT$(U$(IJ),65)
  72. 1005 IFMID$(U$(IJ),3,1)="0"THENU$(IJ)=LEFT$(U$(IJ),72)+LEFT$(BL$,16)
  73. 1006 NEXT
  74. 1010 PRINT"[147]FOLLOWING TEAMS HAVE NOT BEEN POSTED:":PRINT:IJ=0
  75. 1020 FORI=1TO30
  76. 1021 J=22:FL=2:F(22)=T%(I,2):GOSUB11500
  77. 1029 IFT%(I,3)<>0ANDT%(I,1)<>1THENPRINT F$(22);"  ";:IJ=1
  78. 1030 NEXT:IFIJ<>1THEN61600
  79. 1040 R=20:C=2:GOSUB38:PRINT"CHOOSE ONE OF ABOVE TEAMS"
  80. 1050 C=28:L=2:GOSUB45:JJ=VAL(DA$):J=0
  81. 1052 FORI=1TO30:IFT%(I,2)=JJTHENJ=I:I=99
  82. 1056 NEXT:IFJ=0THEN1050
  83. 1060 IFT%(J,2)=0THEN1050
  84. 1070 IFT%(J,1)=1THEN1050
  85. 1080 T%(J,1)=1:TA=T%(J,3)
  86. 1090 IFMID$(U$(TA+1),3,1)="0"THEN1010
  87. 1100 I=TA
  88. 1110 I=I+1:II=I:GOSUB61030
  89. 1120 IFF$(2)="0"THEN1150
  90. 1121 IFJJ=98THEN8000
  91. 1130 GOSUB5000
  92. 1140 GOTO1110
  93. 1150 PRINT"[147]CALCULATING BOWLER RECORDS FOR
  94. 1152 [153]"THIS TEAM & UPDATING TEAM TOTALS.
  95. 1200 FORII=TA+1TOI-1
  96. 1210 GOSUB11000:NEXT
  97. 1215 IFJJ=98THEN1010
  98. 1220 GOSUB12000
  99. 1230 GOSUB13000
  100. 1240 GOTO1010
  101. 2000 IFII<>0THEN2010
  102. 2002 IFA=0THEN4078
  103. 2004 GOTO4077
  104. 2010 BL=4:R=8:Z$=F$(12):GOSUB210:IFA=0THENC=24:Z$=F$(11):GOSUB210:C=9
  105. 2012 GOTO4067
  106. 2100 REM
  107. 2110 IFA=1THENBL=1:C=33:BC=15:GOSUB410:GOSUB310:C=9:Z$=LEFT$(Z$+BL$,1):F$(15)=Z$
  108. 2120 IFII<>0THEN4084
  109. 2130 IFA=1THEN4111
  110. 2140 GOTO4124
  111. 4010 PRINT"[147][145]      "+TN$:F=0:BL=7:C=1
  112. 4011 IFA=0THENBC=4:ZN$="TEAM":GOTO4020
  113. 4012 BC=14:ZN$="BOWLER"
  114. 4020 R=2:Z$="TEAM #":GOSUB210
  115. 4025 R=4:Z$="I.D.":GOSUB210
  116. 4030 R=6:Z$=ZN$:GOSUB210
  117. 4031 IFII<>0THEN4040
  118. 4032 IFA=0THEN4059
  119. 4033 GOTO4055
  120. 4040 R=8:Z$="GAME 1":GOSUB210:IFA=0THENC=15:BL=8:Z$="HANDICAP":GOSUB210:C=1:BL=7
  121. 4050 R=10:Z$="GAME 2":GOSUB210
  122. 4051 R=12:Z$="GAME 3":GOSUB210
  123. 4052 IFZL$<>"M"THEN4059
  124. 4053 BL=17:R=14:Z$="HIGH GAME   S/H":GOSUB210:R=16:Z$="HIGH SERIES S/H":GOSUB210
  125. 4054 IFA=0THEN50010
  126. 4055 BL=3:R=6:Z$="M/F":C=29:GOSUB210:C=1:BL=17
  127. 4056 IFII=0THEN4058
  128. 4057 R=18:Z$="TOTAL PINS  S/H":GOSUB210:R=20:Z$="TOTAL GAMES    ":GOSUB210
  129. 4058 R=22:BL=17:Z$="INITIAL AVERAGE":GOSUB210
  130. 4059 RETURN
  131. 4060 C=9
  132. 4061 BL=2:R=2:Z$=F$(1):GOSUB210
  133. 4062 BL=1:R=4:Z$=F$(2):GOSUB210
  134. 4063 BL=17:R=6:Z$=F$(3):GOSUB210
  135. 4064 IFA=1THENIFRT<>1THENBL=1:C=33:Z$=F$(15):GOSUB210:C=9
  136. 4065 GOTO2000
  137. 4067 BL=4:R=10:Z$=F$(13):GOSUB210
  138. 4069 BL=4:R=12:Z$=F$(14):GOSUB210:IFZL$<>"M"THEN4078
  139. 4070 BL=4:R=14:C=21:Z$=F$(4):GOSUB210
  140. 4071 BL=4:R=14:C=28:Z$=F$(5):GOSUB210
  141. 4072 BL=4:R=16:C=21:Z$=F$(6):GOSUB210
  142. 4073 BL=4:R=16:C=28:Z$=F$(7):GOSUB210:IFA=0THEN50200
  143. 4074 BL=6:R=18:C=19:Z$=F$(8):GOSUB210
  144. 4075 BL=6:R=18:C=26:Z$=F$(9):GOSUB210
  145. 4076 BL=3:R=20:C=22:Z$=F$(10):GOSUB210
  146. 4077 BL=4:R=22:C=21:Z$=F$(20):GOSUB210
  147. 4078 RETURN
  148. 4079 CC=14:C=9:IFZL$<>"M"THEN4084
  149. 4080 BL=2:R=2:BC=15:GOSUB410:GOSUB310:Z$=LEFT$(Z$+BL$,2):F$(1)=Z$
  150. 4081 BL=1:R=4:BC=15:GOSUB410:GOSUB310:Z$=LEFT$(Z$+BL$,1):F$(2)=Z$
  151. 4082 BL=17:R=6:BC=15:GOSUB410:GOSUB310:Z$=LEFT$(Z$+BL$,17):F$(3)=Z$
  152. 4083 GOTO2100
  153. 4084 BL=4:R=8:BC=15:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(12)=Z$
  154. 4086 IFA=0THENC=24:BC=15:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(11)=Z$:C=9
  155. 4090 BL=4:R=10:BC=15:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(13)=Z$
  156. 4091 BL=4:R=12:BC=15:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(14)=Z$
  157. 4092 IFZL$<>"M"THEN4123
  158. 4094 BL=4:R=14:BC=15:C=21:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(4)=Z$
  159. 4095 BL=4:R=14:BC=15:C=28:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(5)=Z$
  160. 4096 BL=4:R=16:BC=15:C=21:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(6)=Z$
  161. 4097 BL=4:R=16:BC=15:C=28:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(7)=Z$
  162. 4098 IFA=0THEN50300
  163. 4108 BL=6:R=18:BC=15:C=19:GOSUB410:GOSUB310:Z%=6:GOSUB100:F$(8)=Z$
  164. 4109 BL=6:R=18:BC=15:C=26:GOSUB410:GOSUB310:Z%=6:GOSUB100:F$(9)=Z$
  165. 4110 BL=3:R=20:BC=15:C=22:GOSUB410:GOSUB310:Z%=3:GOSUB100:F$(10)=Z$
  166. 4111 BL=4:R=22:BC=15:C=21:GOSUB410:GOSUB310:Z%=4:GOSUB100:F$(20)=Z$
  167. 4122 GOTO4124
  168. 4123 R=12:C=20:GOSUB38:PRINT"[158] TOTAL "VAL(F$(12))+VAL(F$(13))+VAL(F$(14))"[146][154]"
  169. 4124 RETURN
  170. 4125 Z$="C[146]HG  D[146]EL  F[146]WD  B[146]ACK  M[146]ORE  R[146]ETURN"
  171. 4130 R=24:C=3:GOSUB38:PRINTZ$;
  172. 4132 GETZ$:IFZ$=""THEN4132
  173. 4134 IFZ$="M"THENZL$=Z$:GOSUB4010:GOSUB4060:GOTO4125
  174. 4135 IFZ$="C"THENC=1:R=24:GOSUB38:PRINTBL$+LEFT$(BL$,15);:GOSUB4079:GOTO4170
  175. 4137 IFZ$="D"THEN4191
  176. 4145 IFZ$="F"THENIFII<>OTHENII=II+1:BC=14:GOSUB61101:GOSUB4010:GOSUB4060:GOTO4125
  177. 4150 IFZ$="B"THENIFII>1THENII=II-1:BC=14:GOSUB61101:GOSUB4010:GOSUB4060:GOTO4125
  178. 4155 IFZ$="R"THENZL$=Z$:GOTO60590
  179. 4160 GOTO4125
  180. 4170 Z$="        ABOVE OK (Y/N)?            "
  181. 4175 R=24:C=3:BL=33:BC=15:GOSUB210:C=9:GETZ$
  182. 4176 GETZ$:IFZ$=""THEN4176
  183. 4180 IFZ$<>"Y"THEN4186
  184. 4181 GOSUB4200:IFII=0THENGOSUB60900:U$(II)=U$:GOTO60590
  185. 4182 IFP1$=F$(1)ANDP2$=F$(2)THEN4184
  186. 4183 GOSUB61280:GOSUB60900
  187. 4184 U$(II)=U$:IFRT=1THENGOTO5032
  188. 4185 GOTO4125
  189. 4186 IFZ$<>"N"THEN4170
  190. 4187 IFRT=1THEN5030
  191. 4189 GOTO4125
  192. 4191 Z$="    ARE YOU SURE (Y/N)?            "
  193. 4192 R=24:C=3:BL=33:BC=15:GOSUB210:C=9
  194. 4193 GETZ$:IFZ$=""THEN4193
  195. 4194 IFZ$="Y"THENGOSUB61260:GOTO60590
  196. 4195 GOTO4125
  197. 4200 U$=F$(1)+F$(2)+F$(3)+F$(15)+F$(16)+F$(17)+"    "
  198. 4210 FORJI=18TO21:U$=U$+F$(JI):NEXT
  199. 4220 FORJI=4TO14:U$=U$+F$(JI):NEXT:RETURN
  200. 5000 REM    POST BOWLER'S SCORES      :
  201. 5010 RT=1:ZL$="C"
  202. 5030 GOSUB4010:GOSUB4060:GOSUB4079:GOTO4170
  203. 5032 B(1)=B(1)+1:B(2)=B(2)+3
  204. 5034 FORIJ=12TO14:B(3)=B(3)+VAL(F$(IJ)):IFVAL(F$(IJ))<1THENB(2)=B(2)-1
  205. 5036 NEXTIJ
  206. 5040 RETURN
  207. 5050 PRINT"[147]BOWLERS"B(1)"  PINS"B(3)"  AVERAGE"INT(B(3)/B(2))
  208. 5070 Z$="POSTING COMPLETED (Y/N)?":BL=24:GOSUB63000
  209. 5080 IFZ$="N"THEN5005
  210. 5090 GOTO11000
  211. 8000 PRINT"[147][145]      "+TN$:F=0:BL=7:C=1
  212. 8012 BC=14:ZN$="BOWLER"
  213. 8020 R=2:Z$="TEAM #":GOSUB210
  214. 8025 R=4:Z$="I.D.":GOSUB210
  215. 8030 R=6:Z$=ZN$:GOSUB210
  216. 8040 R=8:Z$="PTS-WON":GOSUB210
  217. 8050 R=10:Z$="   LOST":GOSUB210
  218. 8060 C=9
  219. 8061 BL=2:R=2:Z$=F$(1):GOSUB210
  220. 8062 BL=1:R=4:Z$=F$(2):GOSUB210
  221. 8063 BL=17:R=6:Z$=F$(3):GOSUB210
  222. 8070 BL=1:R=8:Z$=" ":GOSUB210
  223. 8080 BL=1:R=10:Z$=" ":GOSUB210
  224. 8090 CC=14:C=9
  225. 8100 BL=1:R=8:BC=15:GOSUB410:GOSUB310:F$(16)=Z$
  226. 8110 BL=1:R=10:BC=15:GOSUB410:GOSUB310:F$(17)=Z$
  227. 8120 R=14:C=2:GOSUB38:PRINT"ABOVE OK (Y/N)?"
  228. 8130 C=18:L=1:GOSUB45
  229. 8140 IFDA$<>"Y"ANDDA$<>"N"THEN8120
  230. 8150 IFDA$="N"THEN8000
  231. 8155 IFVAL(F$(16))+VAL(F$(17))=0THEN1140
  232. 8156 IFVAL(F$(16))+VAL(F$(17))<>8THEN8000
  233. 8160 F(18)=VAL(F$(18))+VAL(F$(16))
  234. 8170 F(19)=VAL(F$(19))+VAL(F$(17))
  235. 8180 FL=3:FORJ=18TO19:GOSUB11500:NEXT
  236. 8190 GOTO1130
  237. 9900 REM TEMPORARY REPORT
  238. 9901 PRINT"[147]TYPE DATE OF WORKSHEET.":C=1:R=4:L=20:GOSUB45
  239. 9902 OPEN4,4
  240. 9906 PRINT#4," WORKSHEET FOR ";DA$:PRINT#4
  241. 9910 FORI=1TOO
  242. 9912 IFLEFT$(U$(I),2)=TT$THEN9922
  243. 9913 TT$=LEFT$(U$(I),2):PRINT#4," TEAM #";LEFT$(U$(I),2)
  244. 9918 PRINT#4," DESCRIPTION       POINTS AVG AVG HGS HGH HSS HSH ";
  245. 9919 PRINT#4," TOTAL-PINS GAM HD THREE-GAMES"
  246. 9922 IFMID$(U$(I),3,1)<>"0"THEN9930
  247. 9924 PRINT#4,MID$(U$(I),3,12);RIGHT$(U$(I),68):GOTO9946
  248. 9930 PRINT#4,MID$(U$(I),3,19);RIGHT$(U$(I),61)
  249. 9946 NEXT
  250. 9954 CLOSE4:GOTO60590
  251. 10000 REM: HOUSEKEEPING
  252. 10010 FORJ=896TO933:READX:POKEJ,X:NEXTJ
  253. 10020 DATA160,2,177,45,153,137,0,200,192,6
  254. 10030 DATA208,246,162,1,32,198,255
  255. 10040 DATA32,228,255,201,13,240,11,164,142,145
  256. 10050 DATA140,200,132,142,196,139,208,238,76,204,255
  257. 10100 REM **** START HOUSEKEEPING *****
  258. 10101 SN$="SECRETARY'S NAME ":ST$="123-4567":LE$="1984":LN$="*** LEAGUE NAME **"
  259. 10110 POKE53281,0:POKE53280,0:GOTO60520
  260. 11000 REM     CALCULATE A BOWLER      :
  261. 11005 GOSUB61101
  262. 11024 GOSUB40000
  263. 11045 IFF(0)<>0THEN11050
  264. 11046 IFF(10)=0THENHD=(200-VAL(F$(20)))*.9:F(11)=INT(HD):IFF(11)<0THENF(11)=0
  265. 11047 ZA=VAL(F$(21)):IFZA=0THENZA=VAL(F$(20)):F(21)=VAL(F$(20))
  266. 11048 F(3)=F(11):F(12)=ZA-10:IFF(12)<0THENF(12)=0
  267. 11049 F(13)=F(12):F(14)=F(12):GOTO11200
  268. 11050 IFF(10)=0THENHD=(200-VAL(F$(20)))*.9:F(11)=INT(HD):IFF(11)<0THENF(11)=0
  269. 11085 GOSUB40200
  270. 11090 GOSUB40300
  271. 11095 HD=F(8)/F(10):F(21)=INT(HD+.5)
  272. 11100 HD=.9*(200-F(21)):F(11)=INT(HD):IFF(11)<0THENF(11)=0
  273. 11110 IFF(11)<0THENF(11)=0
  274. 11130 GOSUB40400
  275. 11200 BU=F(3)+VAL(MID$(U$(TA),73,4)):GOSUB11250:B1$=BU$
  276. 11205 BU=F(12)+VAL(MID$(U$(TA),77,4)):GOSUB11250:B2$=BU$
  277. 11210 BU=F(13)+VAL(MID$(U$(TA),81,4)):GOSUB11250:B3$=BU$
  278. 11215 BU=F(14)+VAL(RIGHT$(U$(TA),4)):GOSUB11250:B4$=BU$
  279. 11220 U$(TA)=LEFT$(U$(TA),72)+B1$+B2$+B3$+B4$
  280. 11240 GOTO11300
  281. 11250 BU$=RIGHT$(BL$+RIGHT$(STR$(BU),LEN(STR$(BU))-1),4):RETURN
  282. 11300 GOSUB40500
  283. 11420 RETURN
  284. 11500 F$(J)=RIGHT$(BL$+RIGHT$(STR$(F(J)),LEN(STR$(F(J)))-1),FL):RETURN
  285. 12000 REM       POST A TEAM           :
  286. 12005 II=TA:GOSUB61030
  287. 12010 PRINT"[147]POST TO  ...  ";F$(3)
  288. 12080 C=3:R=5:GOSUB38:PRINT"POINTS WON
  289. 12090 [153]"   POINTS LOST
  290. 12100 CC=14:C=15:BL=1:R=5:BC=15:Z$=F$(16):GOSUB210:GOSUB410:GOSUB310:F$(16)=Z$
  291. 12110 CC=14:C=15:BL=1:R=7:BC=15:Z$=F$(17):GOSUB210:GOSUB410:GOSUB310:F$(17)=Z$
  292. 12115 IFVAL(F$(16))+VAL(F$(17))<>8THEN12080
  293. 12120 C=17:R=10:GOSUB38:PRINT" 1ST    2ND    3RD
  294. 12130 R[178]11:[141]38:[153]"GAME   GAME   GAME
  295. 12140 PRINT"TOTAL PINS....
  296. 12150 [153]"HANDICAP......
  297. 12160 PRINT"TOTAL INC HDCP
  298. 12170 BL[178]4:R[178]13:C[178]17:Z$[178]F$(12):[141]210
  299. 12171 BL[178]4:R[178]13:C[178]24:Z$[178]F$(13):[141]210
  300. 12172 BL[178]4:R[178]13:C[178]31:Z$[178]F$(14):[141]210
  301. 12177 BL[178]4:R[178]15:C[178]24:Z$[178]F$(11):[141]210
  302. 12180 R[178]13:C[178]17:BC[178]15:[141]410:[141]310:Z$[178][200](Z$[170]BL$,4):F$(12)[178]Z$
  303. 12181 R[178]13:C[178]24:BC[178]15:[141]410:[141]310:Z$[178][200](Z$[170]BL$,4):F$(13)[178]Z$
  304. 12182 R[178]13:C[178]31:BC[178]15:[141]410:[141]310:Z$[178][200](Z$[170]BL$,4):F$(14)[178]Z$
  305. 12183 R[178]15:C[178]24:BC[178]15:[141]410:[141]310:Z$[178][200](Z$[170]BL$,4):F$(11)[178]Z$
  306. 12190 Z%[178]4:Z$[178]F$(12):[141]100:F$(12)[178]Z$
  307. 12192 Z$[178]F$(13):[141]100:F$(13)[178]Z$
  308. 12194 Z$[178]F$(14):[141]100:F$(14)[178]Z$
  309. 12200 BL[178]4:R[178]17:C[178]17:F(22)[178][197](F$(12))[170][197](F$(11)):FL[178]4:J[178]22:[141]11500
  310. 12201 Z$[178]F$(22):[141]210
  311. 12210 R[178]17:C[178]24:F(22)[178][197](F$(13))[170][197](F$(11)):FL[178]4:J[178]22:[141]11500
  312. 12211 Z$[178]F$(22):[141]210
  313. 12220 R[178]17:C[178]31:F(22)[178][197](F$(14))[170][197](F$(11)):FL[178]4:J[178]22:[141]11500
  314. 12221 Z$[178]F$(22):[141]210
  315. 12230 C[178]5:R[178]20:[141]38:[153]"ALL ABOVE OK (Y/N)?":[141]41
  316. 12240 [139]D$[178]"Y"[167][141]4200:U$(II)[178]U$:[142]
  317. 12250 [137]12010
  318. 13000 [143]      CALCULATE A TEAM       :
  319. 13030 [141]40000:[141]40200:F(1)[178]F(11)[172]3:[141]40350:[141]40400
  320. 13032 F(18)[178][197](F$(18))
  321. 13034 F(19)[178][197](F$(19))
  322. 13036 F(18)[178]F(18)[170][197](F$(16))
  323. 13038 F(19)[178]F(19)[170][197](F$(17))
  324. 13039 [141]40600
  325. 13040 FL[178]3:[129]J[178]18[164]19:[141]11500:[130]J
  326. 13045 F(21)[178]0
  327. 13050 [141]40500:[142]
  328. 40000 F(4)[178][197](F$(4))
  329. 40010 F(5)[178][197](F$(5))
  330. 40020 F(6)[178][197](F$(6))
  331. 40030 F(7)[178][197](F$(7))
  332. 40040 F(8)[178][197](F$(8))
  333. 40050 F(9)[178][197](F$(9))
  334. 40060 F(10)[178][197](F$(10))
  335. 40070 F(11)[178][197](F$(11))
  336. 40080 F(12)[178][197](F$(12))
  337. 40090 F(13)[178][197](F$(13))
  338. 40100 F(14)[178][197](F$(14))
  339. 40110 F(0)[178]F(12)[170]F(13)[170]F(14)
  340. 40120 F(18)[178][197](F$(18))
  341. 40130 F(19)[178][197](F$(19))
  342. 40140 F(20)[178][197](F$(20))
  343. 40150 F(21)[178][197](F$(21))
  344. 40190 [142]
  345. 40200 [129]J[178]12[164]14
  346. 40210 [139]F(J)[177]0[167]F(10)[178]F(10)[170]1
  347. 40220 [130]J
  348. 40230 F(8)[178]F(8)[170]F(0):[142]
  349. 40300 [139]F(11)[170]F(12)[177]300[167]F(1)[178]300[171]F(12):[137]40310
  350. 40305 F(1)[178]F(11)
  351. 40310 [139]F(11)[170]F(13)[177]300[167]F(1)[178]F(1)[170]300[171]F(13):[137]40320
  352. 40315 F(1)[178]F(1)[170]F(11)
  353. 40320 [139]F(11)[170]F(14)[177]300[167]F(1)[178]F(1)[170]300[171]F(14):[137]40350
  354. 40325 F(1)[178]F(1)[170]F(11)
  355. 40350 F(3)[178]F(11):F(9)[178]F(9)[170]F(0)[170]F(1):[142]
  356. 40400 [139]F(0)[177]F(6)[167]F(6)[178]F(0)
  357. 40410 [139](F(0)[170]F(1))[177]F(7)[167]F(7)[178]F(0)[170]F(1)
  358. 40420 [139]F(12)[177]F(13)[167][139]F(12)[177]F(14)[167]F(2)[178]F(12):[137]40450
  359. 40430 [139]F(13)[177]F(14)[167]F(2)[178]F(13):[137]40450
  360. 40440 F(2)[178]F(14)
  361. 40450 [139]F(2)[177]F(4)[167]F(4)[178]F(2)
  362. 40460 [139](F(2)[170]F(3))[177]F(5)[167]F(5)[178]F(2)[170]F(3):[139]F(5)[177]300[175]F$(2)[179][177]"0"[167]F(5)[178]300
  363. 40470 [142]
  364. 40500 FL[178]4:[129]J[178]4[164]7:[141]11500:[130]J
  365. 40510 J[178]21:[141]11500
  366. 40520 FL[178]6:[129]J[178]8[164]9:[141]11500:[130]J
  367. 40530 FL[178]3:J[178]10:[141]11500
  368. 40540 FL[178]4:J[178]11:[141]11500
  369. 40550 [141]4200:U$(II)[178]U$:[142]
  370. 40600 [129]JK[178]1[164]O
  371. 40610 [139][202](U$(JK[170]II),3,1)[178]"0"[167]JK[178]O:[137]40630
  372. 40620 KL[178]JK:[141]40700
  373. 40630 [130]JK:[142]
  374. 40700 [143]   BUMP BOWLER POINTS
  375. 40710 BU[178][197](F$(16))[170][197]([202](U$(JK[170]II),28,3)):[141]11250:B1$[178]BU$
  376. 40711 B1$[178][201](BL$[170][201]([196](BU),[195]([196](BU))[171]1),3)
  377. 40720 BU[178][197](F$(17))[170][197]([202](U$(JK[170]II),31,3)):[141]11250:B2$[178]BU$
  378. 40721 B2$[178][201](BL$[170][201]([196](BU),[195]([196](BU))[171]1),3)
  379. 40730 U$(JK[170]II)[178][200](U$(JK[170]II),27)[170]B1$[170]B2$[170][201](U$(JK[170]II),55)
  380. 40740 [142]
  381. 50000 [143] PATCH AREA
  382. 50010 BL[178]25:R[178]18:C[178]1:Z$[178]"THIS WEEKS  POINTS  - WON":[141]210
  383. 50020 BL[178]25:R[178]20:C[178]1:Z$[178]"ACCUMULATED POINTS  - WON":[141]210
  384. 50030 BL[178]4:R[178]18:C[178]32:Z$[178]"LOST":[141]210:C[178]1
  385. 50040 BL[178]4:R[178]20:C[178]32:Z$[178]"LOST":[141]210:C[178]1
  386. 50050 [137]4058
  387. 50100 ZL$[178]"M":A[178]0:U$(0)[178]"  0":[137]60695
  388. 50200 BL[178]1:R[178]18:C[178]27:Z$[178]F$(16):[141]210
  389. 50210 BL[178]3:R[178]20:C[178]27:Z$[178]F$(18):[141]210
  390. 50220 BL[178]1:R[178]18:C[178]37:Z$[178]F$(17):[141]210
  391. 50230 BL[178]3:R[178]20:C[178]37:Z$[178]F$(19):[141]210
  392. 50240 [137]4077
  393. 50300 BL[178]1:R[178]18:BC[178]15:C[178]27:[141]410:[141]310:F$(16)[178]Z$
  394. 50310 BL[178]1:R[178]18:BC[178]15:C[178]37:[141]410:[141]310:F$(17)[178]Z$
  395. 50320 BL[178]3:R[178]20:BC[178]15:C[178]27:[141]410:[141]310:Z%[178]3:[141]100:F$(18)[178]Z$
  396. 50330 BL[178]3:R[178]20:BC[178]15:C[178]37:[141]410:[141]310:Z%[178]3:[141]100:F$(19)[178]Z$
  397. 50340 [137]4111
  398. 59000 [143]       SET UP T% ARRAY       :
  399. 59010 [129] I[178]1[164]O:[139][202](U$(I),3,1)[179][177]"0"[167]59040
  400. 59025 [139][200](U$(I),2)[178]"99"[167]59040
  401. 59030 T%[178]T%[170]1:T%(T%,2)[178][197]([200](U$(I),2)):T%(T%,3)[178]I
  402. 59040 [130]:[142]
  403. 60520 [134]U$(250):BL$[178]"                    ":[134]F$(22),F(22),T%(99,3)
  404. 60530 [153]"LOAD":C[178]2:R[178]10:[141]38:[153]"WHAT IS NAME OF CURRENT FILE....."
  405. 60540 R[178]12:L[178]16:[141]45
  406. 60545 [139]DA$[178]"NONE            "[167]U$(1)[178]"980SUBSTITUTES......"[170]BL$[170]BL$[170]BL$
  407. 60546 [139]DA$[178]"NONE            "[167]U$(1)[178]U$(1)[170]"        "
  408. 60547 [139]DA$[178]"NONE            "[167]O[178]2:U$(2)[178]"990END  "[170]BL$[170]BL$[170]BL$[170]BL$:[137]60590
  409. 60560 [159] 1,8,3,"0:"[170]DA$
  410. 60570 [158]896:O[178][197]([200](A$,4))
  411. 60580 [129]I[178]1[164]O:[158]896:U$(I)[178][200](A$,88):[130]I:[160]1
  412. 60590 [153]"LOADCLR"[170]LN$[170]"CONT":RT[178]3
  413. 60600 [153]"1 POST THIS WEEK'S SCORES.
  414. 60610 PRINT"2 ADD A NEW TEAM.
  415. 60630 [153]"3 ADD A NEW BOWLER OR SUBSTITUTE.
  416. 60635 PRINT"4 SEARCH FILE ... POSSIBLE CHG/DEL.
  417. 60636 [153]"5 PRINT WORK SHEET.
  418. 60638 PRINT"7 WRITE OUT FILE TO DISK.
  419. 60640 [153]"9 END OF PROGRAM"
  420. 60650 [153]"SELECT ONE OF ABOVE."
  421. 60660 C[178]1:R[178]23:L[178]1:[141]44:[139]M[179]1[176]M[177]9[167]60590
  422. 60670 [145]M[137]1000,50100,60690,60980, 9900,60590,61600,60590,62000
  423. 60680 [137]60590
  424. 60690 [143] ***** ADD ROUTINE
  425. 60692 A[178]1:U$(0)[178]"  1"
  426. 60695 ZL$[178]"M"
  427. 60700 II[178]0:U$(II)[178]U$(II)[170]BL$[170]BL$[170]BL$[170]BL$[170]"     "
  428. 60710 [141]61101:[137]61250
  429. 60900 [143]  ***** PUT RECORD IN ARRAY
  430. 60910 [129]I[178]1[164]250
  431. 60915 [139]U$(I)[178]""[167]II[178]I:I[178]250:O[178]O[170]1:[137]60930
  432. 60920 [139][200](U$,27)[179][200](U$(I),27)[167]II[178]I:I[178]250:O[178]O[170]1
  433. 60930 [130]I:[139]U$(II)[178]""[167]60960
  434. 60940 [129]I[178]O[170]1[164]II[169][171]1:U$(I[170]1)[178]U$(I)
  435. 60950 [130]I
  436. 60960 [142]
  437. 60980 [153]"LOADTEAM NUMBER.....?"
  438. 60990 C[178]19:R[178]1:L[178]20:[141]45
  439. 61000 [129]I[178]1[164]250:[139]DA$[179][200](U$(I),[195](DA$))[167]II[178]I:I[178]250
  440. 61010 [139]DA$[178][200](U$(I),[195](DA$))[167]II[178]I:I[178]250
  441. 61020 [130]I:ZL$[178]"M":[141]61101
  442. 61029 [137]61255
  443. 61030 [143] ****** CHANGE ROUTINE
  444. 61101 F$(1)[178][200](U$(II),2)
  445. 61102 F$(2)[178][202](U$(II),3,1)
  446. 61103 F$(3)[178][202](U$(II),4,17)
  447. 61104 F$(4)[178][202](U$(II),42,4)
  448. 61105 F$(5)[178][202](U$(II),46,4)
  449. 61106 F$(6)[178][202](U$(II),50,4)
  450. 61107 F$(7)[178][202](U$(II),54,4)
  451. 61108 F$(8)[178][202](U$(II),58,6)
  452. 61109 F$(9)[178][202](U$(II),64,6)
  453. 61110 F$(10)[178][202](U$(II),70,3)
  454. 61111 F$(11)[178][202](U$(II),73,4)
  455. 61112 F$(12)[178][202](U$(II),77,4)
  456. 61113 F$(13)[178][202](U$(II),81,4)
  457. 61114 F$(14)[178][202](U$(II),85,4)
  458. 61115 F$(15)[178][202](U$(II),21,1):A[178]0:[139]F$(2)[179][177]"0"[167]A[178]1
  459. 61116 F$(16)[178][202](U$(II),22,1)
  460. 61117 F$(17)[178][202](U$(II),23,1)
  461. 61118 F$(18)[178][202](U$(II),28,3)
  462. 61119 F$(19)[178][202](U$(II),31,3)
  463. 61120 F$(20)[178][202](U$(II),34,4)
  464. 61121 F$(21)[178][202](U$(II),38,4)
  465. 61198 P1$[178]F$(1):P2$[178]F$(2)
  466. 61199 [142]
  467. 61250 [141]4010:[141]4060:[141]4079:[137]4170
  468. 61255 [141]4010:[141]4060:[137]4125
  469. 61260 [129]I[178]1[164]10:C[178]12:R[178]3:[141]38:[153]" DELETED ":[129]I2[178]1[164]40:[130]I2:[141]38
  470. 61270 [153]" DELETED WAIT":[129]I2[178]1[164]40:[130]I2:[130]I
  471. 61280 [129]I[178]II[164]249:U$(I)[178]U$(I[170]1):[130]I
  472. 61290 O[178]O[171]1:[142]
  473. 61600 [143] *** WRITE OUT THE FILE
  474. 61620 CH[178]0
  475. 61650 [153]"LOAD"
  476. 61660 C[178]5:R[178]10:[141]38:[153]"ASSIGN NAME TO NEW FILE....."
  477. 61670 R[178]12:L[178]16:[141]45
  478. 61680 [159] 2,8,2,"0:"[170]DA$[170]",S,W"
  479. 61690 [152]2,[196](O)
  480. 61700 [129]I[178]1[164]O:[152]2,U$(I):[130]I:[160]2:[137]60590
  481. 62000 Z$[178]"DID YOU WRITE OUT A NEW FILE (Y/N)??"
  482. 62010 R[178]24:C[178]1:BL[178]37:BC[178]15:[141]210:C[178]9
  483. 62020 [161]Z$:[139]Z$[178]""[167]62020
  484. 62030 [139]Z$[179][177]"Y"[167]60590
  485. 62040 [153]"LOAD":[128]
  486. 63000 R[178]24:C[178]3:BC[178]15:[141]210:C[178]9
  487. 63010 [161]Z$:[139]Z$[178]""[167]63010
  488. 63020 [139]Z$[179][177]"Y"[175]Z$[179][177]"N"[167]63010
  489. 63030 [142]
  490.